﻿
Imports System.IO
Imports xmlctrl
Imports xhtmlctrl

Public Class wmp
    Inherits [object]

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
        classid = "clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6"
    End Sub

    Public Sub addparam(ByVal name As String, ByVal value As String)
        Dim param As param = Nothing
        param = New param(output())
        param.name = name
        param.value = value
        addchild(param)
    End Sub

    Public Sub addurl(ByVal url As String)
        addparam("url", url)
    End Sub

    Public Sub addAutoStart(ByVal v As String)
        addparam("autoStart", v)
    End Sub

    Public Sub addvolume(ByVal v As String)
        addparam("volume", v)
    End Sub

    Public Sub addplaycount(ByVal v As Int32)
        addparam("playCount", Convert.ToString(v))
    End Sub

End Class

Public Class wmp2
    Inherits wmp

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
        classid = "clsid:05589FA1-C356-11CE-BF01-00AA0055595A"
    End Sub

    Public Overloads Sub addurl(ByVal url As String)
        addparam("filename", url)
    End Sub
End Class